use Test::More tests => 9;
use strict;
use warnings;

use lib '../lib';
use Send2ME::Magic::Magic;

$_ = undef;
ok(!isPerlScriptAcceptable(''));
ok($_);

$_ = undef;
ok(isPerlScriptAcceptable('$from =~ /qwer/'));
ok(!$_);

$_ = undef;
ok(isPerlScriptAcceptable('$1 =~ /qwer/;'));
ok(!$_);

$_ = undef;
ok(!isPerlScriptAcceptable('$subject =~ /qwer[/'));
ok($_);

ok(!isPerlScriptAcceptable("system('rm /*');"));